home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00190_DEBUG.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  822 b   |  48 lines
  1. on verde Punto
  2.   global TabDe, TabA, Sala, Niv, Primero
  3.   set Pos to getPos(TabDe, Punto)
  4.   if Pos > 0 then
  5.     return getAt(TabA, Pos) && " frame : " & Primero + getAt(TabA, Pos)
  6.   end if
  7. end
  8.  
  9. on vera Punto
  10.   global TabDe, TabA
  11.   set Pos to getPos(TabA, Punto)
  12.   if Pos > 0 then
  13.     return getAt(TabDe, Pos)
  14.   end if
  15. end
  16.  
  17. on memcast num1, num2
  18.   if not num1 then
  19.     set num1 to 1
  20.   end if
  21.   if not num2 then
  22.     set num2 to 5000
  23.   end if
  24.   repeat with xx = num1 to num2
  25.     if the loaded of cast xx then
  26.       put xx
  27.     end if
  28.   end repeat
  29. end
  30.  
  31. on llena
  32.   global tabla
  33.   set tabla to [0]
  34.   repeat with xx = 1 to 47
  35.     add(tabla, 0)
  36.   end repeat
  37.   put "set Tabcajas = " & tabla
  38. end
  39.  
  40. on miraPuppets
  41.   put "Puppets:"
  42.   repeat with xx = 1 to 48
  43.     if the puppet of sprite xx then
  44.       put xx
  45.     end if
  46.   end repeat
  47. end
  48.